0 PRINT"[147]";:
10 A=8192:B=1024:C=1:D=704
30 A=A+C*8
50 FORI=0TO7
51 POKED+I,PEEK(A+I)
60 FORX=0TO7
70 C=2^(7-X)
80 E=INT(PEEK(D+I)/C)
90 POKED+I,PEEK(D+I)-E*C
100 F=B+I*40+X
110 POKEF,32
120 IFE=1THENPOKEF,160
130 NEXTX,I